home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol029 / checkcon.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  2.4 KB  |  87 lines
  1. 10 CLS
  2. 20 KEY OFF
  3. 30 PRINT "CHECKBOOK RECONCILIATION"
  4. 40 PU$="$$####,####,####,####.##"
  5. 50 PRINT
  6. 60 PRINT "WHAT IS THE ENDING BALANCE";
  7. 70 PRINT " FROM THE STATEMENT ";
  8. 80 INPUT E$
  9. 100 Q$=E$ : GOSUB 930
  10. 120 IF Q$="N" THEN GOSUB 860 : GOTO 60
  11. 130 PRINT
  12. 140 PRINT "ENTER THE AMOUNT OF EACH DEPOSIT";
  13. 150 PRINT " NOT SHOWN ON THE STATEMENT";
  14. 160 PRINT " (ENTER ZERO WHEN ALL OUTSTANDING";
  15. 170 PRINT " DEPOSITS ARE ENTERED)"
  16. 180 D=0
  17. 190 PRINT SPC(8)
  18. 200 INPUT ;""; A$
  19. 220 IF VAL(A$)=0 THEN 330
  20. 260 IF VAL(A$)<0 THEN GOSUB 890 : GOTO 190
  21. 270 Q$=A$ : GOSUB 930
  22. 290 IF Q$="N" THEN GOSUB 890 : GOTO 190
  23. 300 D=D+VAL(A$)
  24. 310 PRINT
  25. 320 GOTO 190
  26. 330 PRINT
  27. 340 PRINT "ENTER THE AMOUNT OF EACH CHECK";
  28. 350 PRINT " NOT SHOWN ON THE STATEMENT";
  29. 360 PRINT " (ENTER ZERO WHEN ALL OUTSTANDING";
  30. 370 PRINT " CHECKS ARE ENTERED)"
  31. 380 C=0
  32. 390 PRINT SPC(18)
  33. 400 INPUT ;""; A$
  34. 420 IF VAL(A$)=0 THEN 530
  35. 460 IF VAL(A$)<0 THEN GOSUB 890 : GOTO 390
  36. 470 Q$=A$: GOSUB 930
  37. 490 IF Q$="N" THEN GOSUB 890 : GOTO 390
  38. 500 C=C+VAL(A$)
  39. 510 PRINT
  40. 520 GOTO 390
  41. 530 PRINT
  42. 540 PRINT "         ACCOUNT BALANCE =";:PRINT USING PU$; D+VAL(E$)-C
  43. 550 PRINT
  44. 560 PRINT "ENTER YOUR CHECKBOOK BALANCE ";
  45. 570 INPUT B
  46. 580 PRINT "ENTER THE AMOUNT OF SERVICE CHARGES ";
  47. 590 INPUT S$
  48. 630 IF VAL(S$)<0 THEN GOSUB 890 : GOTO 190
  49. 640 Q$=S$ : GOSUB 930
  50. 660 IF Q$="N" THEN  GOSUB 890 : GOTO 190
  51. 670 PRINT
  52. 680 PRINT "ADJUSTED ACCOUNT BALANCE =";:PRINT USING PU$; B-VAL(S$)
  53. 690 IF ABS(VAL(E$)+D-C-B+VAL(S$))<.0001 THEN 790
  54. 700 PRINT
  55. 710 PRINT "YOUR ACCOUNT IS OUT OF BALANCE.";
  56. 720 PRINT " MAKE SURE YOU HAVE INCLUDED";
  57. 730 PRINT " ALL TRANSACTIONS AGAINST THIS ACCOUNT,";
  58. 740 PRINT " INCLUDING AUTOMATIC DEPOSITS AND";
  59. 750 PRINT " INTEREST PAYMENTS, AS WELL AS";
  60. 760 PRINT " PRE-AUTHORIZED WITHDRAWALS."
  61. 770 PRINT
  62. 780 REM
  63. 790 PRINT
  64. 800 PRINT "WOULD YOU LIKE TO RE-RUN THIS PROGRAM";
  65. 810 PRINT " WITH NEW DATA (Y/N) ?"
  66. 820 Z$=INKEY$:IF Z$="" THEN 820
  67. 830 IF Z$="Y" OR Z$="y" THEN 50
  68. 840 IF Z$="N" OR Z$="n" THEN 980
  69. 850 GOTO 800
  70. 860 PRINT " ERROR: ENTER A VALID DOLLAR AMOUNT ONLY."
  71. 870 PRINT
  72. 880 RETURN
  73. 890 PRINT " ERROR: ENTER A POSITIVE VALID DOLLOR AMOUNT ONLY."
  74. 900 PRINT
  75. 910 RETURN
  76. 930 FOR K=1 TO LEN(Q$)
  77. 940 IF MID$(Q$, K, 1)<>"." THEN 960
  78. 950 IF LEN(Q$)>K+2 THEN Q$="N"
  79. 960 NEXT
  80. 970 RETURN
  81. 980 END
  82. N
  83. 930 FOR K=1 TO LEN(Q$)
  84. 940 IF MID$(Q$, K, 1)<>"." THEN 960
  85. 950 IF LEN(Q$)>K+2 THEN Q$="N"
  86. 960 NEXT
  87.